home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.09 Sep 88 / 4d stuff / Source Files / StepStone.p < prev    next >
Encoding:
Text File  |  1988-06-22  |  556 b   |  43 lines  |  [TEXT/MPS ]
  1. Program Ext_StepStone;
  2.  
  3. Uses Memtypes;
  4.  
  5. Var
  6. …    {Variable definitions}
  7.  
  8. procedure Proc2; Forward;
  9. procedure Proc3; Forward;
  10. procedure Step; Forward;
  11.  
  12. procedure Proc1;
  13. var
  14.     MyVar:str255;
  15. begin
  16.     MyVar:='Hello';
  17.     {Now we call Step to get to Proc3}
  18.     Step;
  19.     …    {Lot's of Code}
  20. end;        {Proc1}
  21.  
  22. procedure Step;
  23. begin
  24.     {This routine just calls Proc3}
  25.     Proc3;
  26. end;        {Step}
  27.  
  28. procedure Proc2;
  29. begin
  30.     …    {Lot's of code}
  31. end;        {Proc2}
  32.  
  33. procedure Proc3;
  34. begin
  35.     {Here's the code we want to use}
  36.     …    {Some more code}
  37. end;        {Proc3}
  38.  
  39. Begin    {Main Block}
  40.     Proc1;
  41. End.    {Main Block}
  42.  
  43.